home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Utilities / LogoMation 1.0.1 / Examples / B & W / About Box / About Box
Encoding:
Text File  |  1992-08-12  |  1.9 KB  |  78 lines  |  [UVtx/UVtl]
  1. nana = "na na"
  2. // nana = 14
  3.  
  4. about_DefPict()
  5. about_MoveLM()
  6.  
  7.  
  8.  
  9. ///////////////////////////////////////////////////////
  10. Function about_MoveLM(w,s)
  11.     Up
  12.     Goto -width()/2, height()/2-30,-90
  13.     Down
  14.     Pen picture="about_LogoMation0", end="no",trail="yes", speed=650
  15.     Circle 150
  16.     If (nana > 0)
  17.         Repeat nana
  18.             Sound "Pop",nowait
  19.     Else
  20.         Sound nana,nowait
  21.     Forward 340
  22.     Sound "", wait
  23.     Sound "Wild Eep", nowait
  24.     Pen picture="about_LogoMation1", end="yes",trail="no",speed=60
  25.     Forward 40
  26.     Sound "", wait
  27.     Sound "Quack", nowait
  28.     Up
  29.     X = x()+165
  30.     Y = y()+10
  31.     Goto -width()/2,-100,0
  32.     Down
  33.     Pen picture="about_Copyright",speed=650
  34.     Goto X,Y,0
  35.     Up
  36.     Sound "Indigo"
  37.     Goto x()-350,y()-100,0
  38.     Color 0,0,0
  39.     Print "LogoMation 0.3ß, Copyright © 1992 Yuval and Chuck Shavit"
  40.     
  41.     
  42. ///////////////////////////////////////////////////////
  43. Function about_pLM(n,  r1,g1,b1,  r2,g2,b2)
  44.     Picture "about_LogoMation" . n
  45.         Pen fontname="Helvetica", fontsize=40
  46.         //Color r1,g1,b1
  47.         Print "L", move
  48.         Pen fontsize=40
  49.         Print "o", move
  50.         Pen fontsize=30
  51.         Print "g", move
  52.         Pen fontsize=20
  53.         Print "o", move
  54.         Pen fontname="Times", fontsize=40, fontstyle="Italic"
  55.         //Color r2,g2,b2
  56.         Print "M", move
  57.         Pen fontsize=40
  58.         Print "a", move
  59.         Pen fontsize=35
  60.         Print "t", move
  61.         Pen fontsize=30
  62.         Print "i", move
  63.         Pen fontsize=25
  64.         Print "o", move
  65.         Pen fontsize=20
  66.         Print "n", move
  67.  
  68. ///////////////////////////////////////////////////////
  69.  
  70. Function about_DefPict()
  71.     Picture "about_Copyright"
  72.         Pen fontname="Times", fontsize=15, fontstyle="Italic"
  73.         //Color 65535,26228,7080
  74.         Print "©"
  75.     about_pLM(0, 53918,53740,61439, 6566,52322,57343)
  76.     about_pLM(1, 25465,6798,65535, 10767,46331,65535)
  77.  
  78.